home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSAM.EXE / BDCDRIVE.PRG < prev    next >
Text File  |  1993-05-10  |  4KB  |  154 lines
  1. PROCEDURE BDCDrive
  2. *----------------------------------------------------------------------------
  3. * NAME
  4. *   BDCDrive - Sets up run time environment, runs dialog, and builds app
  5. *
  6. * DESCRIPTION
  7. *
  8. *----------------------------------------------------------------------------
  9.  
  10.   SET COLOR OF NORMAL      TO w+/bg
  11.   SET COLOR OF HIGHLIGHT   TO rg+/w
  12.   SET COLOR OF MESSAGES    TO w/b
  13.   SET COLOR OF TITLES      TO n/bg
  14.   SET COLOR OF BOX         TO W+/b
  15.   SET COLOR OF INFORMATION TO bg+/b
  16.   SET COLOR OF FIELDS      TO W+/n
  17.   SET CATALOG TO
  18.   SET CATALOG OFF
  19.   SET ESCAPE OFF
  20.   SET SCOREBOARD OFF
  21.   SET STATUS OFF
  22.   SET TALK OFF
  23.   SET EXCLUSIVE OFF
  24.   SET DBTRAP OFF
  25.   SET TYPEAHEAD TO 400
  26.  
  27.   cBDCCmd = ""
  28.  
  29.   PUBLIC ARRAY BDCOPT[ 14 ]
  30.     *-- CD_FILE_1 - XXXXXXXXXXXXX [v]
  31.     BDCOPT[ 1 ]      = [*.CFG] + SPACE( 12 )
  32.  
  33.     *-- BT_EDITCF -  E~dit config file
  34.     BDCOPT[ 2 ]      = .F.
  35.  
  36.     *-- RB_MODE_1 - ( ) ~Compact
  37.     BDCOPT[ 3 ]      = .T.
  38.  
  39.     *-- RB_MODE_2 - ( ) ~Standalone
  40.     BDCOPT[ 4 ]      = .F.
  41.  
  42.     *-- CK_OPTI_1 - [ ] Compile ~only
  43.     BDCOPT[ 5 ]      = .F.
  44.  
  45.     *-- CK_OPTI_2 - [ ] Dis~play offending code
  46.     BDCOPT[ 6 ]      = .T.
  47.  
  48.     *-- CK_OPTI_3 - [ ] ~No warning messages
  49.     BDCOPT[ 7 ]      = .T.
  50.  
  51.     *-- CK_OPTI_4 - [ ] Set Lang~Tables on
  52.     BDCOPT[ 8 ]      = .F.
  53.  
  54.     *-- CD_LIST_1 - XXXXXXXXXXXXX
  55.     BDCOPT[ 9 ]      = SPACE( 13 )
  56.  
  57.     *-- BT_EDIT -  ~Edit file list
  58.     BDCOPT[ 10 ]     = .F.
  59.  
  60.     *-- BT_OK -    Ok
  61.     BDCOPT[ 11 ]     = .T.
  62.  
  63.     *-- BT_CANCEL -  Cancel
  64.     BDCOPT[ 12 ]     = .F.
  65.  
  66.     *-- BT_HELP -   Help
  67.     BDCOPT[ 13 ]     = .F.
  68.  
  69.     *-- BT_LINK -  ~Link options ...
  70.     BDCOPT[ 14 ]     = .F.
  71.  
  72.   *--------------------------------------------------------------
  73.   *-- FXL_Cancel is set to .T. is the user Cancels the dialog box
  74.   *--------------------------------------------------------------
  75.   FXL_Cancel = .F.
  76.  
  77.   *--------------------------------------------------------------
  78.   *-- FXL_NoChng lets the dialog box know that the values in the
  79.   *-- array are not different from the SCR file defaults.  This
  80.   *-- will allow the dialog box to use the .WIN file for a faster
  81.   *-- startup.
  82.   *--------------------------------------------------------------
  83.   FXL_NoChng = .T.
  84.  
  85.   DO BDCOPT
  86.  
  87.   IF .NOT. FXL_Cancel                   && The user clicked on OK
  88.  
  89.     cCfg = ""
  90.     lLinkOpt = TYPE( "BDCLINK[ 1 ]" ) <> "U"
  91.  
  92.     
  93.     IF .NOT. ISBLANK( BDCOPT[ 1 ] ) .AND. ;
  94.        .NOT. ( "*" $ BDCOPT[ 1 ] .OR. "?" $ BDCOPT[ 1 ] ) .AND. ;
  95.        FILE( TRIM( BDCOPT[ 1 ] ) )
  96.  
  97.       cCgf =  ' +' + TRIM( BDCOPT[ 1 ] )
  98.  
  99.     ENDIF
  100.  
  101.     IF BDCOPT[ 5 ]
  102.       cBDCCmd = cBDCCmd + " -c"
  103.     ENDIF
  104.  
  105.     IF BDCOPT[ 6 ]
  106.       cBDCCmd = cBDCCmd + " -t"
  107.     ENDIF
  108.  
  109.     IF BDCOPT[ 7 ]
  110.       cBDCCmd = cBDCCmd + " -w"
  111.     ENDIF
  112.  
  113.     IF BDCOPT[ 8 ]
  114.       cBDCCmd = cBDCCmd + " -X"
  115.     ELSE
  116.       cBDCCmd = cBDCCmd + " -x"
  117.     ENDIF
  118.  
  119.     IF lLinkOpt .AND. .NOT. ISBLANK( BDCLINK[ 1 ] )
  120.       cBDCCmd = cBDCCmd + " -B " + TRIM( BDCLINK[ 1 ] )
  121.     ENDIF
  122.  
  123.     IF lLinkOpt .AND. .NOT. ISBLANK( BDCLINK[ 2 ] )
  124.       cBDCCmd = cBDCCmd + " -C " + TRIM( BDCLINK[ 2 ] )
  125.     ENDIF
  126.  
  127.     IF lLinkOpt .AND. .NOT. ISBLANK( BDCLINK[ 3 ] )
  128.       cBDCCmd = cBDCCmd + " -E " + TRIM( BDCLINK[ 1 ] )
  129.     ENDIF
  130.  
  131.     IF BDCOPT[ 4 ]
  132.       cBDCCmd = cBDCCmd + " -L"
  133.     ENDIF
  134.  
  135.     cBDCCmd = cBDCCmd + " " + TRIM( BDCOPT[ 9 ] )
  136.  
  137.     cBDCCmd = cBDCCmd + cCfg
  138.  
  139.  
  140.     DO _Err_Box WITH cBDCCmd
  141.  
  142.     x = RUN( "BDC " + cBDCCmd, .T. )
  143.  
  144.   ENDIF
  145.  
  146.   RELEASE BDCOPT
  147.   RELEASE BDCLINK
  148.  
  149. RETURN
  150. *-- EOP: BDCDrive
  151.  
  152.  
  153.  
  154.